﻿Public Class DTODiem

    Private _MaHS As Integer
    Public Property MaHS() As Integer
        Get
            Return _MaHS
        End Get
        Set(ByVal value As Integer)
            _MaHS = value
        End Set
    End Property

    Private _HocKy As Integer
    Public Property HocKy() As Integer
        Get
            Return _HocKy
        End Get
        Set(ByVal value As Integer)
            _HocKy = value
        End Set
    End Property

    Private _MaMonHoc As Integer
    Public Property MaMonHoc() As Integer
        Get
            Return _MaMonHoc
        End Get
        Set(ByVal value As Integer)
            _MaMonHoc = value
        End Set
    End Property

    Private _Diem15Phut As Double
    Public Property Diem15Phut() As Double
        Get
            Return _Diem15Phut
        End Get
        Set(ByVal value As Double)
            _Diem15Phut = value
        End Set
    End Property

    Private _Diem1Tiet As Double
    Public Property Diem1Tiet() As Double
        Get
            Return _Diem1Tiet
        End Get
        Set(ByVal value As Double)
            _Diem1Tiet = value
        End Set
    End Property

    Private _DiemCuoiKy As Double
    Public Property DiemCuoiKy() As Double
        Get
            Return _DiemCuoiKy
        End Get
        Set(ByVal value As Double)
            _DiemCuoiKy = value
        End Set
    End Property

    Private _NamHoc As Long
    Public Property NamHoc() As Long
        Get
            Return _NamHoc
        End Get
        Set(ByVal value As Long)
            _NamHoc = value
        End Set
    End Property

    Public Sub New()
        Me.Diem15Phut = 0
        Me.Diem1Tiet = 0
        Me.DiemCuoiKy = 0
        Me.HocKy = 1
        Me.MaHS = 0
        Me.MaMonHoc = 0
        Me.NamHoc = 0
    End Sub
End Class
